home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / tex / td187src.lzh / EPIC.D < prev    next >
Text File  |  1991-12-14  |  2KB  |  71 lines
  1. DEFINITION MODULE Epic ;
  2. (*
  3.    Dieses Modul ist (C)'90 by Jens Pirnay
  4.    Entstanden am  : 14.07.1990
  5.    Funktion       : Implementation der EPIC-Zeichenprimitiven
  6.    Voraussetzungen: Keine
  7.    Fehlerquellen  : ???
  8.    Änderungen     : ---
  9.    Benutzte Ideen : TexDraw diverse Module
  10. *)
  11.  
  12. FROM Types IMPORT JputMarker, Draw3D, LineMode, LineType,
  13.                   ObjectPtrTyp ;
  14.  
  15. VAR    CurrentMarker : JputMarker;
  16.        CurrentDraw3D : Draw3D;
  17.        CurrentLMode  : LineMode;
  18.        CurrentLTyp   : LineType;
  19.        CurrSarrow    : BOOLEAN;
  20.        CurrEarrow    : BOOLEAN;
  21.  
  22. PROCEDURE SetDrawMode(newmode : Draw3D);
  23. (*
  24.   von Bedeutung für Polygon: flat, extrude, pyramid
  25. *)
  26.  
  27. PROCEDURE SetLineMode(newmode : LineMode);
  28. (*
  29.    Polyline oder Polygon.
  30. *)
  31.  
  32. PROCEDURE SetLineType(newtype : LineType);
  33. (*
  34.    Latexline oder Epicline (solid, dashed, dotted)
  35. *)
  36.  
  37. PROCEDURE SetArrows(start, end : BOOLEAN);
  38. (*
  39.   Legt fest, ob Anfang oder Ende der Linie mit Pfeilen
  40.   versehen werden sollen.
  41. *)
  42.  
  43.  
  44. PROCEDURE DoLine () ;
  45. (*
  46.   Draws solid  line:  \drawline[stretch](x1,y1)(x2,y2)...(xn,yn)
  47.   Draws dotted line:  \dottedline[dotchar]{dotgap}(x1,y1)(x2,y2)...(xn,yn)
  48.   Draws dashed line:  \dashline[stretch]{dashlen}[dashgap](x1,y1)(x2,y2)...(xn,yn)
  49. *)
  50.  
  51. PROCEDURE SetMarkerType ( typ : JputMarker ) ;
  52. (*
  53. *)
  54.  
  55.  
  56. PROCEDURE Grid () ;
  57. (*
  58.   Draw grid: \grid(wid,hght)(deltaWid,deltaHght)[initialX,initialY]
  59. *)
  60.  
  61. PROCEDURE Show ( Object : ObjectPtrTyp ) ;
  62. (*
  63.   Display object on screen
  64. *)
  65.  
  66. PROCEDURE Change ( Object : ObjectPtrTyp;
  67.                    DX, DY : LONGREAL ) ;
  68.  
  69. END (* of definition module *) Epic .
  70.  
  71.